home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / edit174.zip / R-PCETOG.MRG < prev    next >
Text File  |  1992-07-05  |  7KB  |  144 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCETOG.BAS
  3. * RBBS-PC.BAS:  Date 4-4-1992  Size 173476 bytes
  4. * ------------[ Created 04-04-1992 19:25:14 ]------------
  5. * REPLACING old line(s) by new
  6. 760 ZLastIndex = 0
  7.     GOSUB 755
  8.     CALL AllCaps (ZWasZ$)
  9.     LSET ZPswd$ = ZWasZ$
  10. * ------[ first line different ]------
  11. '   CALL QuickTPut1 ("Please REMEMBER your password")                ' UG070501
  12.     ZUserTextColor = 37
  13.     ZTempSecLevel = ZUserSecLevel
  14.     CALL Protocol
  15.     ZUserXferDefault$ = "N"
  16.     ZProtoPrompt$ = "None"
  17.     LSET ZListNewDate$ = CHR$(91) + CHR$(1) + CHR$(1)                ' UG070502
  18.     IF ZNewUserSetsDefaults THEN _
  19.        CALL SkipLine (1) : _                                         ' UG070501
  20.        ZBypassTimeCheck = ZTrue : _
  21.        GOSUB 43000 : _
  22.        CALL SkipLine (1) : _                                         ' UG070501
  23.        ZBypassTimeCheck = ZFalse : _
  24.        CALL Graphic (ZFileName$) : _
  25.        GOSUB 42805 : _
  26.        GOSUB 42700 : _                                               ' UG070501
  27.        GOSUB 42750 : _                                               ' ET070501
  28.        CALL SkipLine (1) : _                                         ' UG070501
  29.     ELSE ZUpperCase = ZFalse : _
  30.          ZNulls = ZFalse : _
  31.          ZFullScreenEditor = ZFalse                                  ' ET070501
  32.     ZPageLength = ZPageLengthDef
  33.     CALL SetNewUserDef
  34.     GOSUB 5135
  35.     CALL DefaultU
  36. * REPLACING old line(s) by new
  37. * ------[ first line different ]------
  38. 2100 IF NOT ZFullScreenEditor OR ZGetExtDesc THEN _                  ' ET070501
  39.         GOTO 2120                                                    ' ET070501
  40. * INSERTING new line(s)
  41. 2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)                ' ET070501
  42.      I = ZSubParm                                                    ' ET070501
  43.      CALL SkipLine (1)                                               ' ET070501
  44.      IF I = -2 THEN      ' Sleep Disconnect                          ' ET070501
  45.         GOTO 10590                                                   ' ET070501
  46.      ELSEIF I = -1 THEN  ' Lost Carrier                              ' ET070501
  47.         GOTO 10595                                                   ' ET070501
  48.      ELSEIF I = 1 THEN   ' Save Message                              ' ET070501
  49.         GOTO 3400                                                    ' ET070501
  50.      ELSEIF I = 2 THEN   ' Abort Message                             ' ET070501
  51.         GOTO 2430                                                    ' ET070501
  52.      END IF                                                          ' ET070501
  53. 2120 ZOutTxt$ = "Enter Your " + _
  54.           ZMsgHeader$ + _
  55.           STR$(ZMaxMsgLines) + _
  56.           " Lines Max.  Press [ENTER] By Itself for Menu."           ' UG070501
  57.      GOSUB 12979                                                     ' UG070501
  58.      GOSUB 3200
  59. * REPLACING old line(s) by new
  60. 3405 IF ZSysopMsg THEN _
  61.         MsgPswd$ = "^READ^" _
  62.      ELSE Temp$ = MsgPswd$ : _
  63.           CALL MsgProt (MsgTo$,Found,MsgPswd$) : _
  64.           IF MsgPswd$ = "" THEN _
  65.              MsgPswd$ = Temp$ : _
  66. * ------[ first line different ]------
  67.              IF ZFullScreenEditor THEN GOTO 2110 ELSE GOTO 2300      ' ET070501
  68.      SaveReplyStatus = ZReply
  69.      ZReply = ZTrue
  70.      ZSysopMsg = ZFalse
  71.      ZReply = SaveReplyStatus
  72.      GOSUB 4910
  73.      MsgRecSave$ = ZMsgRec$
  74.      MsgCorrected = ZFalse
  75.      GOSUB 23100
  76.      ZWasSL = 0
  77.      ZWasN$ = ""
  78.      ZLastIndex = 0
  79.      HighMsgNumber = HighMsgNumber + 1
  80. * REPLACING old line(s) by new
  81. 4626   ZWasZ$ = "L"
  82.        WasL = 1
  83. * ------[ first line different ]------
  84.        IF ZFullScreenEditor THEN                                     ' ET070501
  85.           GOSUB 2110                                                 ' ET070501
  86.        ELSE                                                          ' ET070501
  87.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  88.              CALL QuickTPut ("Warning: Message Must Be Shorter Than" + _
  89.                       STR$(ZMaxMsgLines) + " Lines.",1)              ' UG070501
  90.           IF NOT MsgFwd THEN _
  91.              ZOutTxt$ = "Use C to Continue Reply.  Please Delete Unneeded Quoted Lines." : _ ' UG070501
  92.              GOSUB 12975                                             ' UG070501
  93.           GOSUB 3200
  94.           GOSUB 3020
  95.           GOSUB 2300
  96.        END IF
  97.        GOTO 4628
  98. * REPLACING old line(s) by new
  99. 5410 CALL Toggle(-9)
  100.      GOSUB 43020
  101.      ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
  102.      CALL Toggle(-5)
  103.      GOSUB 42810
  104.      CALL Toggle(-3)
  105.      CALL Toggle(-6)
  106.      CALL Toggle(-7)
  107.      CALL Toggle(-10)
  108.      CALL Toggle(-2)
  109.      CALL Toggle(-4)
  110.      CALL Toggle(-8)
  111.      CALL Toggle(-1)
  112. * ------[ first line different ]------
  113.      CALL Toggle(-11)                                                ' ET070501
  114.      IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  115.         IF ZUserSecLevel > ZTempExpiredSec THEN _
  116.            CALL QuickTPut1 ("Registration Expires " + ZExpirationDate$) ' UG070501
  117.      CALL SkipLine (1)                                               ' UG070501
  118.      RETURN
  119. '
  120. ' *****  B - COMMAND FROM UTILITY MENU (Bank Time)  ****
  121. '
  122. * REPLACING old line(s) by new
  123. * ------[ first line different ]------
  124. 42700 ' CALL SkipLine (1)                                            ' UG070501
  125.       ZOutTxt$ = "TurboKeys Allow Single Key Commands Without ENTER." + _ ' UG070501
  126.          ZCrLf$ + "Use TurboKeys (Y,[N])"                            ' UG070501
  127.       GOSUB 12999
  128.       ZTurboKeyUser = NOT ZYes
  129.       CALL Toggle (8)
  130.       RETURN
  131. '                                                                    ' ET070501
  132. ' * EDITOR SET FOR NEW USERS                                         ' ET070501
  133. '                                                                    ' ET070501
  134. * INSERTING new line(s)
  135. 42750 ZOutTxt$ = "Use the Full Screen Editor for Messages (Y,[N])"   ' ET070501
  136.       GOSUB 12999                                                    ' ET070501
  137.       ZFullScreenEditor = NOT ZYes                                   ' ET070501
  138.       CALL Toggle (11)                                               ' ET070501
  139.       RETURN                                                         ' ET070501
  140. '
  141. ' *  F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
  142. ' *  FILE Transfer DEFAULT SET FOR NEW USERS
  143. '
  144.